home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed26.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  767b  |  31 lines
  1. 10 CLR:POKE53280,0:POKE53281,0:POKE53272,21
  2. 20 PRINT"[147][156]            WHC  ENTERPRISES
  3. 25 [153]"         READING COMPREHENSION          WAIT"
  4. 30 [153]"LISTON                 ED-26 WAIT "
  5. 40 [134]A$(15)
  6. 50 [129]A[178]1[164]15:[135]A$(A):[153]"CONT"[201]("   "[170][196](A),4);". SYS";A$(A):[130]A
  7. 60 [133]"CHOOSE(1-15):";A$
  8. 70 A[178][197](A$):[139]A[179]1[176]A[177]15[176]A[179][177][181](A)[167][153]"ONONONON":[137]60
  9. 80 [129]X[178]1230[170]40[172]A[164]1229[170]40[172]A[170][195](A$(A)):[151]X,[194](X)[170]128:[151]X[170]54272,3:[130]
  10. 90 [129]T[178]1[164]1500:[130]:[153]"LOAD  LOADING......  "A$(A)
  11. 100 [153]"STOPLOAD"[199](34)A$(A)[199](34)",8:"
  12. 110 [151]198,0:[151]631,19:[151]632,131:[151]198,2:[128]
  13. 59999 :
  14. 60001 [131] "YELLOW BIRD"
  15. 60002 [131] "DUCKS"
  16. 60003 [131] "THE RACE"
  17. 60004 [131] "SNOW"
  18. 60005 [131] "RIDDLE"
  19. 60006 [131] "THE BOAT RACE"
  20. 60007 [131] "THE LOST LUNCH"
  21. 60008 [131] "THE BUTTON"
  22. 60009 [131] "SNOW BUNNIES"
  23. 60010 [131] "BALL GAME"
  24. 60011 [131] "**"
  25. 60012 [131] "**"
  26. 60013 [131] "**"
  27. 60014 [131] "**"
  28. 60015 [131] "**"
  29. 60016 [131] "**"
  30. 60020 [143] WHC 92:06:08
  31.